0 REM:  MODS BY E. GOLDBERG : 02NOV86          *** USE ARC 2.21 OR HIGHER ***
1 POKE650,0:POKE808,239:GOSUB131
3 IFGL=9230THEN232
12 POKE53281,0:POKE53280,0:PRINT"[147]";
15 IFPEEK(49152)+PEEK(49153)<>206THENPRINT"[147] [193][210][195] 2.21 MUST BE LOADED AND RUN [198][201][210][211][212]! ":GOTO15
20 PRINT"[147]               [193][210][195] [193][201][196] 5.1 "
21 GOSUB184
22 PRINT"               [195]REATED  [194]Y:"
24 PRINT"         [158][197][146]XTRACT FROM AN [193][210][195] FILE.
25 [153]"            SYSLENWAITREATE AN ATN(null)LEN FILE.
26 PRINT"      [158][193][146]PPEND TO AN EXISTING [193][210][195] FILE.
27 [153]"           SYSASCWAITILE (null)ANAGEMENT (null)ENU":[153]"             SYSSTR$WAITEVICE # CHANGE.
28 PRINT"              E[158][216][146]IT [193][210][195] [193][201][196]."
29 GETA$:IFA$=""THENGOSUB139:GOSUB191:GOTO29
30 IFA$<>"E"ANDA$<>"C"ANDA$<>"A"THENVA=1
31 IFA$<>"F"ANDA$<>"X"ANDA$<>"D"ANDVA=1THENVA=0:GOTO29
32 IF A$="C"THENGOSUB800:PRINT"[147]";SPC(15);"[204]OADING...[144]":LOAD"ARCAID1",8
33 IFA$="A"THENGOSUB800:PRINT"[147]";SPC(15);"[204]OADING...[144]":LOAD"ARCAID3",8
34 IFA$="X"THEN196
35 IFA$="F"THEN206
36 IFA$<>"D"THENGOSUB800:PRINT"[147]";SPC(15);"[204]OADING...[144]":LOAD"ARCAID2",8
40 PRINT"[147]  [212][213][210][206] [207][198][198] [193][204][204] [196][210][201][214][197][211], [197][216][195][197][208][212] [212][200][197] [207][206][197]     [217][207][213] [215][193][206][212] [212][207] [195][200][193][206][199][197]."
45 INPUT"[195]URRENT DEVICE NUMBER  8[157][157][157]";CD:INPUT"[206]EW DEVICE NUMBER  9[157][157][157]";ND
50 OPEN1,CD,15:PRINT#1,"M-W"CHR$(119)CHR$(0)CHR$(2)CHR$(ND+32)CHR$(ND+64):CLOSE1
55 RUN
120 END
131 REM:SCROLLING MSG
132 A$="                 [207]RIGINALLY WRITTEN BY [196]AN [204]EVINE, WITH EXTENSIVE "
133 B$="IMPROVEMENTS BY [197]ARL [199]OLDBERG OF THE "
134 C$="[195][213][199][203][195] 02-[206]OV-86.     [208]LEASE SEND ANY QUESTIONS, COMMENTS OR"
135 D$=" SUGGESTIONS TO ME AT [195]OMMODORE [195]ENTRAL (913-621-1801) "
136 E$="                     "
137 MS$=E$+A$+B$+C$+D$
138 RETURN
139 PRINT"[158]";
140 X=X+1:IFX=256THENX=1
141 PRINTMID$(MS$,X,40);"[146]";:FORDY=1TO 10:NEXT
142 RETURN
143 REM: APPEND TO AN ARC FILE
184 REM BY-LINE
185 BL$(1)="[158][196][154]AN [204]EVIN[158]E"
186 BL$(2)="[196][158]A[154]N [204]EVI[158]NE"
187 BL$(3)="[196]A[158]N[154] [204]EV[158]INE"
188 BL$(4)="[196]AN[158] [154][204]E[158]VINE"
189 BL$(5)="[196]AN [158][204][154][158]EVINE"
190 DI=1:RETURN
191 B=B+DI
192 IFB=6THENB=5:DI=-1
193 IFB=0THENDI=1
194 PRINT"                ";BL$(B):RETURN
195 POKE631,13:POKE632,71:POKE633,207:POKE635,13:POKE636,13:POKE198,5:GOTO120
196 PRINT"[147]           [196]O YOU WANT TO:"
197 PRINT"           [158][210][146]ETURN TO [193][210][195] [193][201][196],"
198 PRINT"           [158][197][146]XIT TO [193][210][195], OR"
199 PRINT"           [158][199][146]O TO [194][193][211][201][195]"
200 GETA$:IFA$=""THEN200
201 IFA$="R"THENRUN
202 IFA$="E"THENPOKE808,237:PRINT"[147]ARC":POKE631,13:POKE198,1:NEW
203 IFA$="G"THENSYS64738
205 GOTO200
206 REM: FILE MANAGEMENT
207 PRINT"[147]    [212]HIS SECTION ONLY USES DRIVE 8,0    [146]"
208 PRINT"            [198]ILE [205]ANAGEMENT"
209 PRINT"           [158]$[146] FOR A DIRECTORY."
210 PRINT"           [158][198][146]ORMAT A DISK."
211 PRINT"           [158][214][146]ALIDATE A DISK."
212 PRINT"           [158][211][146]CRATCH FILES."
213 PRINT"           [158][210][146]ENAME A FILE."
214 PRINT"           [158][204][146]OAD ADDRESS OF FILE.":PRINT"           [158][196][146]ISPLAY [211][197][209] FILE.
215 [153]"           SYSLENWAITONTENTS OF AN ATN(null)LEN FILE."
216 [153]"           SYSATNWAITBORT TO (null)AIN (null)ENU"
217 [161]A$:[139]A$[179][177]""[167]223
218 TG[178]1[171]TG
219 [139]TG[178]0[167][153]"SYS";
220 [139]TG[178]1[167][153]"";
221 [153]"    (null)HIS SECTION ONLY USES DRIVE 8,0    WAIT":[129]D[178]1[164]40:[130]
222 [137]217
223 [139]A$[179][177]"F"[167]228
224 [153]"LOADASCORMAT A DISKWAIT"
225 [133]"STR$ISK (null)AME,RIGHT$STR$";DN$,ID$:CO$[178]"ASC(null)(null)(null)ATN(null)":[141]600:[139]YN[167][138]
226 [153]"LOAD       ASCORMATTING IN PROGRESS...":[159]15,8,15,"N0:"[170]DN$[170]","[170]ID$
227 [160]15:[137]229
228 [151]808,239:[139]A$[179][177]"$"[167]235
229 [153]"LOAD     (null)LEFT$RIGHT$ASC(null) PAUSES,  (null)(null)(null)/(null)(null)(null)(null) ABORTS"
230 [153]"DIR":[153]"":GL[178]9230
231 [137]195
232 [153]"    (null)RESS ANY KEY TO RETURN TO MENU.WAIT":[151] 198,0:GL[178]0
233 [161]A$:[139]A$[178]""[167]233
234 [137]206
235 [139]A$[179][177]"V"[167]239
236 [153]"LOAD":CO$[178]"(null)ATN(null)RIGHT$STR$ATN(null)VAL":[141]600:[139]YN[167][138]
237 [153]"LOAD        (null)ALIDATION IN PROGRESS":[159]15,8,15,"V0":[160]15:[137]229
238 [137]217
239 [139]A$[179][177]"S"[167]244
240 [153]"LOAD(null)CRATCH FILES."
241 [133]"ASCILENAME (OR PATTERN)";F$:[139]F$[178]""[167][138]
242 [159] 15,8,15,"S0:"[170]F$
243 F$[178]"":[160]15:[137]229
244 [139]A$[179][177]"R"[167]250
245 [153]"LOAD(null)ENAME ASCILE."
246 [133]"LENURRENT FILENAME";F$:[139]F$[178]""[167][138]
247 [133]"(null)EW FILENAME";N$:[139]N$[178]""[167][138]
248 [159]15,8,15,"R0:"[170]N$[170]"="[170]F$
249 F$[178]"":N$[178]"":[160]15:[137]229
250 [139]A$[179][177]"L"[167]255
251 [153]"LOAD(null)OAD ADDRESS OF A FILE."
252 [133]"ASCILE NAME";F$:[141]500
253 [153]"LOADSTART A:";F$:GL[178]9230:[153]""
254 [137]195
255 [139]A$[179][177]"C"[167]260
256 [153]"LOADLENONTENTS OF AN ATN(null)LEN FILE."
257 [133]"ATN(null)LEN FILENAME";F$:[141]500
258 [153]"LOADARC/L A:"F$:[153]"":GL[178]9230
259 [137]195
260 [139]A$[178]"D"[167]700
261 [139]A$[178]"A"[167][138]
262 [137]217
500 TE$[178]"":[129]I[178]1[164][195](F$):[139]F$[178]""[167][138]
501 [139][202](F$,I,1)[178]" "[167]TE$[178]TE$[170][199](160):[137]503
502 TE$[178]TE$[170][202](F$,I,1)
503 [130]
505 F$[178]TE$:[142]
600 [153]"       RIGHT$(null)(null)VAL(null)(null) STR$RIGHT$(null)(null) (null)(null) "CO$
602 [153]"       (null)(null)VAL(null)(null)  (null) WAIT (null)(null) (null)(null)(null)LENVALVALSTR$, (null)(null)"
604 [153]"       ATN(null)(null) (null)(null)LEFT$VAL(null)CLOSE(null)VAL(null) (null)(null) ATNPEEK(null)(null)(null).":[151]198,0
606 [161]A$:[139]A$[178]""[167]606
608 [139]A$[178]"P"[167]YN[178]0:[142]
610 YN[178]1:[142]
700 [153]"LOADSTR$ISPLAY (null)VAL(null) FILE."
702 [133]"(null)VAL(null) FILENAME";F$:[141]500
703 [153]"LOAD   (null)LEFT$RIGHT$ASC(null) PAUSES,  (null)(null)(null)/(null)(null)(null)(null) ABORTS"
704 [153]"TYPE "F$:[153]"":GL[178]9230:[137]195
800 [153]"LOAD RIGHT$(null)(null)VAL(null)(null) STR$RIGHT$(null)(null) WITH ATN(null)LEN ATNRIGHT$STR$ IN DRIVE 8,0             AND PRESS (null)VAL(null)(null)(null)(null)"
802 [161]A$:[139]A$[179][177][199](13)[167]802
804 [142]